PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be004.dxr/00073.ls

Text File | 2001-03-02 | 526 b | 24 lines

on exitFrame
  set LastTick to the ticks
  set newtick to the ticks
  repeat while the locH of sprite 13 > 110
    set y to 1 * (the ticks - LastTick)
    set x to 2 * (the ticks - newtick)
    set LastTick to the ticks
    set newtick to the ticks
    set the locH of sprite 13 to the locH of sprite 13 - x
    set the locV of sprite 13 to the locV of sprite 13 - y
    updateStage()
  end repeat
  if the timer < 1930 then
    go(the frame)
  else
    go(the frame + 1)
  end if
  go(the frame)
end

on mouseUp
  go(80)
end